home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / KCOLLECT.P < prev    next >
Text File  |  1990-09-13  |  3KB  |  95 lines
  1. temp <- <primitive 110 19 >
  2. <primitive 112 temp 1        " values " \
  3.     #( #[ 5 32 160 113 32 225 2 4 33 34 189 243 179 242 33 \
  4.  243 245] \
  5.     #(  ) ) >
  6.  
  7. <primitive 112 temp 2        " select: " \
  8.     #( #[ 32 32 5 40 160 226 2 13 33 35 180 247 5 34 32 \
  9.  171 35 208 242 34 243 215 191 243 245] \
  10.     #(  ) ) >
  11.  
  12. <primitive 112 temp 3        " removeKey:ifAbsent: " \
  13.     #( #[ 32 48 188 243 245] \
  14.     #( 'subclass should implement RemoveKey:ifAbsent:'  ) ) >
  15.  
  16. <primitive 112 temp 4        " removeKey: " \
  17.     #( #[ 32 33 224 6 32 48 188 242 33 244 217 243 245] \
  18.     #( 'no element associated with key'  ) ) >
  19.  
  20. <primitive 112 temp 5        " remove: " \
  21.     #( #[ 32 48 188 243 245] \
  22.     #( 'object must be removed with explicit key'  ) ) >
  23.  
  24. <primitive 112 temp 6        " keysSelect: " \
  25.     #( #[ 32 32 5 40 160 226 2 14 33 35 171 180 247 5 34 \
  26.  32 171 35 208 242 34 243 215 191 243 245] \
  27.     #(  ) ) >
  28.  
  29. <primitive 112 temp 7        " keysDo: " \
  30.     #( #[ 32 225 2 5 33 32 171 180 243 179 243 245] \
  31.     #(  ) ) >
  32.  
  33. <primitive 112 temp 8        " keys " \
  34.     #( #[ 5 57 160 113 32 225 2 4 33 34 189 243 11 32 242 \
  35.  33 243 245] \
  36.     #(  ) ) >
  37.  
  38. <primitive 112 temp 9        " indexOf:ifAbsent: " \
  39.     #( #[ 32 225 3 9 35 33 201 247 3 32 171 244 243 179 242 \
  40.  34 165 243 245] \
  41.     #(  ) ) >
  42.  
  43. <primitive 112 temp 10        " indexOf: " \
  44.     #( #[ 32 33 224 4 32 48 188 243 214 243 245] \
  45.     #( 'indexOf element not found'  ) ) >
  46.  
  47. <primitive 112 temp 11        " includesKey: " \
  48.     #( #[ 32 33 224 2 92 244 213 242 91 243 245] \
  49.     #(  ) ) >
  50.  
  51. <primitive 112 temp 12        " collect: " \
  52.     #( #[ 32 32 5 40 160 226 2 10 34 32 171 33 35 180 208 \
  53.  242 34 243 215 191 243 245] \
  54.     #(  ) ) >
  55.  
  56. <primitive 112 temp 13        " coerce: " \
  57.     #( #[ 32 164 160 114 33 226 3 5 34 35 36 208 243 11 23 \
  58.  242 34 243 245] \
  59.     #(  ) ) >
  60.  
  61. <primitive 112 temp 14        " binaryDo: " \
  62.     #( #[ 32 225 3 6 33 32 171 35 211 243 179 242 93 243 245 \
  63. ] \
  64.     #(  ) ) >
  65.  
  66. <primitive 112 temp 15        " atAll:put: " \
  67.     #( #[ 33 225 3 5 32 35 34 208 243 179 242 245] \
  68.     #(  ) ) >
  69.  
  70. <primitive 112 temp 16        " at: " \
  71.     #( #[ 32 33 224 10 32 33 169 48 11 17 188 242 33 244 213 \
  72.  243 245] \
  73.     #( ': association not found'  ) ) >
  74.  
  75. <primitive 112 temp 17        " asDictionary " \
  76.     #( #[ 5 40 160 113 32 226 2 5 33 34 35 208 243 11 23 \
  77.  242 33 243 245] \
  78.     #(  ) ) >
  79.  
  80. <primitive 112 temp 18        " addAll: " \
  81.     #( #[ 33 226 2 5 32 34 35 208 243 11 23 242 33 243 245 \
  82. ] \
  83.     #(  ) ) >
  84.  
  85. <primitive 112 temp 19        " add: " \
  86.     #( #[ 32 48 188 243 245] \
  87.     #( 'Must add with explicit key'  ) ) >
  88.  
  89. <primitive 98 #KeyedCollection \
  90.     <primitive 97 #KeyedCollection #Collection #\smalltlk\prelude\kcollect.st \
  91.     #(  ) \
  92.     #( #values #select: #removeKey:ifAbsent: #removeKey: #remove: #keysSelect: #keysDo: #keys #indexOf:ifAbsent: #indexOf: #includesKey: #collect: #coerce: #binaryDo: #atAll:put: #at: #asDictionary #addAll: #add:  ) \
  93.     temp 5 9 > >
  94.  
  95.